CD School House 9/CD School House 9.0 - Wayzata Technology (1994).iso/pc/games/dos/strategy/atlantic/beep.bak

Text File | 1984-10-18 | 174b | 13 lines

PROCEDURE beep(n:integer);
{ emits n beep sounds }

var i : integer;
BEGIN
  for i := 1 to n do
  begin
    sound(440);
    delay(250);
    nosound;
  end;
END;